home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / TDUCK35.ZIP / TDuck / aliases.ini next >
INI File  |  1997-04-20  |  25KB  |  587 lines
  1. [aliases]
  2. n0=----------------------T╥╧LΩT ╨∙c|{ -Scan- Aliases------------------------
  3. n1=/cstat {
  4. n2=  .enable #cstat
  5. n3=  set %StatsChanOps 0
  6. n4=  set %StatsNonOps 0
  7. n5=  set %StatsIRCops 0
  8. n6=  set %StatsAway 0
  9. n7=  set %StatsVoiced 0
  10. n8=  set %StatsHere 0
  11. n9=  set %StatsClones 0
  12. n10=  if ($1 == $null) && ($2 == $null) && (#* iswm $active) { set %statchan # | set %StatsDisplay msg # | who %statchan }
  13. n11=  elseif ($1 == -e) && ($2 == $null) && (#* iswm $active) { set %statchan # | set %StatsDisplay echo %statchan | who %statchan }
  14. n12=  elseif (#* iswm $1) && ($2 == $null) { set %statchan $1 | if ($me ison %statchan) { set %StatsDisplay msg %statchan } | else { set %StatsDisplay echo -s } | who %statchan }
  15. n13=  elseif ($1 == -e) && (#* iswm $2) { set %statchan $2 | set %StatsDisplay echo %statchan | who %statchan }
  16. n14=  else {
  17. n15=    echo 3Invalid command option or you tried to retrieve stats on the current channel when you were not in a channel.
  18. n16=    echo 3Usage: /cstat [-e] [#channel]
  19. n17=    echo -
  20. n18=  }
  21. n19=}
  22. n20=percent {
  23. n21=  %x = [ $$1 ] * [ 10000 ]
  24. n22=  %x = [ %x ] / [ $$2 ]
  25. n23=  if ($len(%x) == 1) { set %x 0. $+ %x | goto next }
  26. n24=  if ($len(%x) == 2) { set %x 0. $+ %x | goto next }
  27. n25=  if ($len(%x) == 3) { set %x $left(%x,1) $+ . $+ $right(%x,2) | goto next }
  28. n26=  if ($len(%x) == 4) { set %x $left(%x,2) $+ . $+ $right(%x,2) | goto next }
  29. n27=  if ($len(%x) == 5) { set %x $left(%x,3) $+ . $+ $right(%x,2) | goto next }
  30. n28=  :next
  31. n29=  if ($right(%x,3) == .00) { set %x $remove(%x,.00) | goto next2 }
  32. n30=  if (*0 iswm %x) {
  33. n31=    if ($len(%x) == 4) { set %x $left(%x,1) }
  34. n32=    if ($len(%x) == 5) { set %x $left(%x,2) }
  35. n33=    if ($len(%x) == 6) { set %x $left(%x,3) }
  36. n34=  }
  37. n35=  :next2
  38. n36=  return %x
  39. n37=  unset %x
  40. n38=}
  41. n39=;
  42. n40=ircopscan {
  43. n41=  if ($1 == $null) { echo 4 -a Error, type: /ircopscan [-e|-c] | halt }
  44. n42=  if (# == $null) { set %window -s } | else { set %window # } | set %total 0 | write -c $mircdir $+ raw.txt
  45. n43=  if ($1 == -e) { echo 10T7╥10╧7L10Ω7T 10╨7∙10c7K 6:Now Listing Visable IRCops- | set %total 0 | set %option 1 | write $mircdir $+ raw.txt /echo 4 %window 6:4ñ6: -Listing IRCops- :4ñ6: | .enable #ircopscan | who 0 o }
  46. n44=  if ($1 == -c) {
  47. n45=    if (# == $null) { echo 4 -s Error, try using this is the channel window. | halt }
  48. n46=    msg # 10T7╥10╧7L10Ω7T 10╨7∙10c7K 6:Now Listing Visable IRCops-
  49. n47=    set %total 0 | set %option 2 | write $mircdir $+ raw.txt /msg # 6:4ñ6: -Listing IRCops- :4ñ6: | .enable #ircopscan | who 0 o
  50. n48=  }
  51. n49=}
  52. n50=-----------------------T╥╧LΩT ╨∙c|{ -TitleTimer- Aliases-----------------------
  53. n51=timeon { .timer109 0 180 /autoping | .timer2050 0 1 /seconds | %days = 0 | %hours = 0 | %minutes = 0 | %seconds = 0 }
  54. n52=seconds { 
  55. n53=  inc %seconds 1 | titlebar : <( %hours Hrs %minutes Mins %seconds Secs)>  ---[ T╥╧LΩT ╨∙cK: ]---   Lag: <( %Reply $+ . $+ %randtime Secs )>
  56. n54=  if (%seconds = 60) { %seconds = 0 | inc %minutes 1 }
  57. n55=  if (%minutes = 60) { %minutes = 0 | inc %hours 1 | dong }
  58. n56=  if (%hours > 24) { %hours = 0 | inc %days 1 }
  59. n57=}
  60. n58=timeoff { .timer2050 off | .timer109 off | titlebar : T╥╧LΩT ╨∙cK: -v3.5- {QuAcK! QuAcK! }
  61. n59=-----------------------T╥╧LΩT ╨∙c|{ -Floods- Aliases-----------------------
  62. n60=/cp /echo $active %portnick $+ 's client port: %cport
  63. n61=/Ver-Flood {
  64. n62=  dde duckie1 command "" /set %flood $$1
  65. n63=  dde duckie1 command "" /play -c $$1 $mircdir $+ floods\version.fld 800
  66. n64=  dde duckie2 command "" /set %flood $$1
  67. n65=  dde duckie2 command "" /play -c $$1 $mircdir $+ floods\version.fld 800
  68. n66=}
  69. n67=/Echo-Flood {
  70. n68=  dde duckie1 command "" /set %flood2 $$1
  71. n69=  dde duckie1 command "" /play -c $$1 $mircdir $+ floods\echo.fld 2000
  72. n70=  dde duckie2 command "" /set %flood2 $$1
  73. n71=  dde duckie2 command "" /play -c $$1 $mircdir $+ floods\echo.fld 2000
  74. n72=}
  75. n73=/Ping-Flood {
  76. n74=  dde duckie1 command "" /set %flood3 $$1
  77. n75=  dde duckie1 command "" /play -c $$1 $mircdir $+ floods\ping.fld 800
  78. n76=  dde duckie2 command "" /set %flood3 $$1
  79. n77=  dde duckie2 command "" /play -c $$1 $mircdir $+ floods\ping.fld 800
  80. n78=}
  81. n79=/Send-Flood {
  82. n80=  dde duckie1 command "" /set %flood4 $$1
  83. n81=  dde duckie1 command "" /play -c $$1 $mircdir $+ floods\send.fld 800
  84. n82=  dde duckie2 command "" /set %flood4 $$1
  85. n83=  dde duckie2 command "" /play -c $$1 $mircdir $+ floods\send.fld 800
  86. n84=}
  87. n85=/Chat-Flood {
  88. n86=  dde duckie1 command "" /set %flood5 $$1
  89. n87=  dde duckie1 command "" /play -c $$1 $mircdir $+ floods\chat.fld 1500
  90. n88=  dde duckie2 command "" /set %flood5 $$1
  91. n89=  dde duckie2 command "" /play -c $$1 $mircdir $+ floods\chat.fld 1500
  92. n90=}
  93. n91=/Hop-Flood {
  94. n92=  dde duckie1 command "" /set %flood6 $$1
  95. n93=  dde duckie1 command "" /play -c $$1 $mircdir $+ floods\hop.fld 1000
  96. n94=  dde duckie2 command "" /set %flood6 $$1
  97. n95=  dde duckie2 command "" /play -c $$1 $mircdir $+ floods\hop.fld 1000
  98. n96=}
  99. n97=/clonejoin {
  100. n98=  dde duckie1 command "" /join $$1
  101. n99=  dde duckie2 command "" /join $$1
  102. n100=}
  103. n101=/clonepart {
  104. n102=  dde duckie1 command "" /part $$1
  105. n103=  dde duckie2 command "" /part $$1
  106. n104=}
  107. n105=/clonekill {
  108. n106=  dde duckie1 command "" /exit
  109. n107=  dde duckie2 command "" /exit
  110. n108=}
  111. n109=-----------------------T╥╧LΩT ╨∙c|{ -Shortcuts- Aliases-----------------------
  112. n110=/bots {
  113. n111=  if ( x ison #) { %bot = X@channels.undernet.org } 
  114. n112=  if ( w ison #) { %bot = W@channels2.undernet.org }
  115. n113=}
  116. n114=/minvite if %in > $snick(0,#) { timer678 off } | Else { /inc %in | /invite $snick(%in,#) $$1 }
  117. n115=/inviter /set %in 0 | /.timer678 0 3 /minvite $$1
  118. n116=/op /mode # +ooo $$1 $2 $3
  119. n117=/dop /mode # -ooo $$1 $2 $3
  120. n118=/j /join #$$1
  121. n119=/p /part #
  122. n120=/n /names #$$1
  123. n121=/w /whois $$1
  124. n122=/k /kick # $$1
  125. n123=/q /query $$1
  126. n124=/hop /part # | /join #$$1
  127. n125=/send /dcc send $1 $2
  128. n126=/chat /dcc chat $1
  129. n127=/ping /ctcp $$1 ping
  130. n128=/echoclone /msg =^Flush^ 
  131. n129=/sj /join #$$1 $+ $chr(160) $+ $$2
  132. n130=/in /invite $$1 #
  133. n131=/page /ctcp $$1 page
  134. n132=/fi /raw -q INVITE $1 $2 | echo -a %pipe 3fake-invited $1 to $2
  135. n133=/bigchans /.timer 9 3 /bigchan
  136. n134=/bigchan /join #OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO $+ $rand(a,z)
  137. n135=/autoping /.ctcp $me ping
  138. n136=/dong /
  139. n137=/on {
  140. n138=  /inc %opsnotice 1
  141. n139=  /.onotice # 4,1[# $+ %opsnotice $+ ]9,1[ $+ $chan $+ ][ Ops Only ]4,1[# $+ %opsnotice $+ ] *1
  142. n140=  /echo -a  9,1Message has been sent to the Ops of4,1< # $+ >
  143. n141=}
  144. n142=/startup /.timer 1 5 /play -c $me $mircdir $+ docs\duck.txt 200 
  145. n143=/whoserver //set %wesuck 0 1 | /timer100 0 1 /timer %wesuck  /run telnet |  /timer200 0 1 /timer %wesuck  /run telnet
  146. n144=/loadcmds /load -a aliases.ini | /load -p popups.ini | /load -v remote.ini | /load -c remote.ini | /load -e events.ini | /load -r remote.ini
  147. n145=/taked /mode # +tilkn 1 QuAcK | .timer 1 5 /topic # =*****)-  T╥╧LΩT ╨∙c|{ ⌐L└± TaKeOvEr  -(*****= | /massd
  148. n146=/12lamerz /raw -q INVITE $$1 #OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO $+ $rand(a,9)
  149. n147=-----------------Away Stuff--------------------
  150. n148=/awayst /amsg 3*** Away [ $+ %msg $+ ] : Page: $+ %Pager Msg: $+ %log
  151. n149=-----------------------T╥╧LΩT ╨∙c|{ -FakeStuff- Aliases-----------------------
  152. n150=fakedcc {
  153. n151=  raw -q privmsg $$1 :DCC SEND $$2 3353362454 20 $$3
  154. n152=}
  155. n153=ghost {
  156. n154=  join $$1 $+ $chr(160)
  157. n155=}
  158. n156=-----------------------T╥╧LΩT ╨∙c|{ -Time- Aliases-----------------------
  159. n157=Atime { set %hr $token(1,58,$time) | set %min $token(2,58,$time) | If (%hr == 0) { set %hr 12 | set %sub a.m. } | elseif (%hr < 12) { set %sub a.m. } | elseif (%hr == 12) { set %sub p.m. } | else { %hr = %hr - 12 | set %sub p.m. } | %Atime = %hr $+ : $+ %min %sub | Return %Atime }
  160. n158=;
  161. n159=Kt Unset %Kts | %Kt = 1 | %KtLen =  $len($atime) | :Space | If %Kt > %KtLen { Goto End } | Else { %Kts = %Kts $+ $mid(%Kt,1,$1) | Inc %Kt | Goto Space } | :End | Return %Kts
  162. n160=-----------------------T╥╧LΩT ╨∙c|{ -Hawkee Mail- Aliases-----------------------
  163. n161=F1 {
  164. n162=  if $chatme != yes {
  165. n163=    if %connect == $null || %email == $null || %password == $null {
  166. n164=      echo 4 -a Error in setup
  167. n165=    echo 2 -a Please press12 F52 to correct this error }
  168. n166=    else {
  169. n167=      echo 2 -a Connecting to mail server, Please wait
  170. n168=      echo 2 -a Checking mail for:12 %email
  171. n169=      raw -q privmsg $me :DCC CHAT CHAT %connect 110 $+ 
  172. n170=      .enable #check 
  173. n171=      .timer300 60 60 invalid
  174. n172=    }
  175. n173=  }
  176. n174=  else {
  177. n175=    .enable #getmail
  178. n176=    msg = $+ $me retr %number
  179. n177=    inc %number
  180. n178=  }
  181. n179=}
  182. n180=F2 {
  183. n181=  if $chatme != yes {
  184. n182=    if %connect == $null || %email == $null || %password == $null {
  185. n183=      echo 4 -a Error in setup
  186. n184=    echo 2 -a Please press12 F52 to correct this error }
  187. n185=    else {
  188. n186=      set %rcpt $$?="Who would you like to email?"
  189. n187=      set %subject $?="Please enter E-Mail Subject"
  190. n188=      set %message $$?="You may now enter your email message"
  191. n189=      :loop
  192. n190=      if $len(%message) >= 255 { set %message $$?="There is a 256 char limit in mIRC, reenter:" }
  193. n191=      if $len(%message) >= 255 goto loop  
  194. n192=      raw -q privmsg $me :DCC CHAT CHAT %connect 25 $+ 
  195. n193=      .timer300 60 60 invalid
  196. n194=      .enable #mail
  197. n195=    }
  198. n196=  }
  199. n197=  else {
  200. n198=    set %delete [ [ %number ] - 1 ]
  201. n199=    msg = $+ $me dele %delete
  202. n200=    echo 2 -a Message12 %delete 2has been deleted
  203. n201=    unset %delete
  204. n202=  }
  205. n203=}
  206. n204=F3 {
  207. n205=  if $chatme != yes { setup }
  208. n206=  else {
  209. n207=    close -m Hawkee $+ $chr(160) $+ Pro $+ $chr(160) $+ v2.0 $+ $chr(160) $+ Mail $+ $chr(160) $+ Server
  210. n208=    close -c $me
  211. n209=  }
  212. n210=}
  213. n211=F5 {
  214. n212=  .timer300 off
  215. n213=  set %email $?="Please enter your email address"
  216. n214=  set %pop $$?="Please enter your mail server's POP domain" 
  217. n215=  set %password $$?="Please enter you E-Mail password"
  218. n216=  .enable #checkdomain
  219. n217=  .timer300 60 60 invalid
  220. n218=  .dns %pop
  221. n219=}
  222. n220=chatme {
  223. n221=  set %loop 1
  224. n222=  :loop
  225. n223=  if %loop > $chat(0) goto end
  226. n224=  if $chat(%loop) == $me { return yes | goto end }
  227. n225=  inc %loop
  228. n226=  goto loop
  229. n227=  :end
  230. n228=}
  231. n229=gets {
  232. n230=  set %result 0
  233. n231=  set %loop 1
  234. n232=  :loop
  235. n233=  if %loop > $send(0) goto end
  236. n234=  if $send(%loop) == $$1 inc %result
  237. n235=  inc %loop
  238. n236=  goto loop
  239. n237=  :end
  240. n238=  return %result
  241. n239=}
  242. n240=invalid {
  243. n241=  close -c $me
  244. n242=  .timer300 off
  245. n243=  echo 2 -
  246. n244=  echo 4 Connection to mail server timed out
  247. n245=  echo 12 Please try one of the following to obtain a connection:
  248. n246=  echo 12 1:2 Try entering the Mail prefix ex: 10mail2.geocities.com 
  249. n247=  echo 12 2:2 Make sure you have entered only the domain
  250. n248=  echo 12 3:2 Be sure you are attempting to connect to a POP3 account
  251. n249=  echo 12 4:2 Attempt connection later
  252. n250=  echo 10 You may press2 F510 to re-enter your POP server address
  253. n251=  echo 2 -
  254. n252=  unset %send
  255. n253=  .disable #checkdomain
  256. n254=  .disable #check
  257. n255=  .disable #mail
  258. n256=}
  259. n257=email {
  260. n258=  echo 2 -a -=-=-=-=-=-=-=Mail Setup For 10T7╥10╧7L10Ω7T 10╨7∙10c7K v3.5=-=-=-=-=-=-
  261. n259=  echo 2 -a E-Mail address:12 %email
  262. n260=  echo 2 -a Pop server address:12 %pop
  263. n261=  echo 2 -a E-Mail password for Pop access:12 %password
  264. n262=  echo 2 -a Press12 F12 to check mail and12 F22 to send mail
  265. n263=  echo 2 -a -=-=-=-=-=-=-=-=-=-=-=-=-=12End of Setup2=-=-=-=-=-=-=-=-=-=-=-=-=-
  266. n264=}
  267. n265=-----------------------T╥╧LΩT ╨∙c|{ -MISC- Aliases-----------------------
  268. n266=/rankick {
  269. n267=  if ($opnick == $me) { halt }
  270. n268=  else { kick # $nick($rand(1,$nick(0,#)),#) RAnDoM PeRºoN kIcK!
  271. n269=  }
  272. n270=}
  273. n271=/massd {
  274. n272=  set %chan #
  275. n273=  set %i 1
  276. n274=  set %num 0
  277. n275=  :start
  278. n276=  set %user $opnick(%i,%chan)
  279. n277=  if (%user == $null) { raw -q mode # -oooooo %nick | echo 6 # T╥╧LΩT ╨∙c|{ Mass Deop On # Complete! | unset %nick | unset %i | unset %chan | unset %num | halt }
  280. n278=  if (%user != $me) { set %nick %user %nick | if (%num == 6) { raw -q mode %chan -oooooo %nick | unset %nick | set %num 0 } }  
  281. n279=  inc %i 1 
  282. n280=  inc %num 1  
  283. n281=  goto start
  284. n282=}  
  285. n283=/massd2 {
  286. n284=  set %chan #
  287. n285=  set %i 1
  288. n286=  set %num 0
  289. n287=  :start
  290. n288=  set %user $opnick(%i,%chan)
  291. n289=  if (%user == $null) { raw -q mode # -oo %nick | echo 6 # T╥╧LΩT ╨∙c|{ Mass Deop On # Complete! | unset %nick | unset %i | unset %chan | unset %num | halt }
  292. n290=  if (%user != $me) { set %nick %user %nick | if (%num == 2) { raw -q mode %chan -oo %nick | unset %nick | set %num 0 } }  
  293. n291=  inc %i 1 
  294. n292=  inc %num 1  
  295. n293=  goto start
  296. n294=}  
  297. n295=/massk {
  298. n296=  set %i 1
  299. n297=  :start
  300. n298=  set %nick $nick(%i,#)
  301. n299=  if (%nick == $null) { echo 6 # T╥╧LΩT ╨∙c|{ Mass Kick On # Complete! | halt }
  302. n300=  if (%nick != $me) { kick # %nick T╥╧LΩT ╨∙c|{ Mass Kick }
  303. n301=  inc %i 1  
  304. n302=  goto start  
  305. n303=}
  306. n304=/massb {
  307. n305=  set %i 1
  308. n306=  :start
  309. n307=  set %nick $nick(%i,#)
  310. n308=  if (%nick == $null) { echo 6 # T╥╧LΩT ╨∙c|{ Mass Ban On # Complete! | halt }
  311. n309=  if (%nick != $me) { ban # %nick 3 }
  312. n310=  inc %i 1  
  313. n311=  goto start  
  314. n312=}
  315. n313=/masskb {
  316. n314=  set %i 1
  317. n315=  :start
  318. n316=  set %nick $nick(%i,#)
  319. n317=  if (%nick == $null) { echo 6 # T╥╧LΩT ╨∙c|{ Mass Kick Ban On # Complete! | halt }
  320. n318=  if (%nick != $me) { ban # %nick 3 | kick # %nick T╥╧LΩT ╨∙c|{ Mass Kick/Ban }
  321. n319=  inc %i 1  
  322. n320=  goto start  
  323. n321=}
  324. n322=/desync1 /raw -q mode # +bbbbbb 1@1 2@2 3@3 4@4 5@5 6@6 | /raw -q mode # +bbbbbb 7@7 8@8 9@9 10@10 11@11 12@12 | /raw -q mode # +bbbbbb 13@13 14@14 15@15 16@16 17@17 18@18 | /raw -q mode # +bbbbbb 19@19 20@20 21@21 22@22 23@23 24@24 | /raw -q mode # +bbbbbb 25@25 26@26 27@27 28@28 29@29 30@30
  325. n323=/desync2 /raw -q mode # -bbbbbb 1@1 2@2 3@3 4@4 5@5 6@6 | /raw -q mode # -bbbbbb 7@7 8@8 9@9 10@10 11@11 12@12 | /raw -q mode # -bbbbbb 13@13 14@14 15@15 16@16 17@17 18@18 | /raw -q mode # -bbbbbb 19@19 20@20 21@21 22@22 23@23 24@24 | /raw -q mode # -bbbbbb 25@25 26@26 27@27 28@28 29@29 30@30
  326. n324=/f8 /taked
  327. n325=/sf8 /run $mircdir $+ docs\split.txt | echo  -a 10Currently Split Servers 6 òLoadedò  10 (10T7╥10╧7L10Ω7T 10╨7∙10c7K)
  328. n326=/F10 /play -c $me $mircdir $+ docs\awaym.txt 500
  329. n327=/F11 /run notepad.exe
  330. n328=/F12 {
  331. n329=  if (%panic == 1) { .ignore *!*@* | echo 4PANIC ON!! -- 6Everything is now being Ignored... | set %panic 2 | halt }
  332. n330=  if (%panic == 2) { .ignore -r *!*@* | echo 10PANIC OFF!! -- 6Everything has been Reset to Normal... | set %panic 1 | halt  }
  333. n331=}
  334. n332=-----------------------T╥╧LΩT ╨∙c|{ -mBIND- Aliases-----------------------
  335. n333=/F9 {
  336. n334=  if ($1 == secondpart) {
  337. n335=    if ($2 != $null) {
  338. n336=      %i = 1 | :start
  339. n337=      if ($left($len($2),$nick(%i,#)) == $2) { run $mircdir $+ extras\mbind.exe 2 \031 $+ $nick(%i,#) $+ \015 $+ \002:\002\032 }
  340. n338=      elseif ($nick(%i,#) != $null) { inc %i | goto start }
  341. n339=      else echo 4 No Nicknames Matching $chr(2) $+ $2 $+ * $+ $chr(2) in $chr(31) $+ # $+ $chr(31) Found!
  342. n340=    }
  343. n341=  } 
  344. n342=  else run $mircdir $+ extras\mbind.exe 3 mirc /f9 secondpart
  345. n343=}
  346. n344=;-----------------------T╥╧LΩT ╨∙c|{ -Cool TalK- Aliases-----------------------
  347. n345=;---[Big Words]---
  348. n346=;
  349. n347=/Big {
  350. n348=  %Bc!Word = *2
  351. n349=  Set %Bc!Active $1
  352. n350=  %Bc!Lenth = $len(%Bc!Word) 
  353. n351=  ;If %Bc!Lenth > 9 { Echo -a 4,1Too Many Letters!! Needs 2 B 9 Or Less! | halt } 
  354. n352=  %Bc!Letter = 1  | %Bc!Line = 1 | %Bc!Ltn = 1 | %Bc!Write1 = $chr(160) | %Bc!Write2 = $chr(160) | %Bc!Write3 = $chr(160) | %Bc!Write4 = $chr(160) | %Bc!Write5 = $chr(160) | %Bc!Write6 = $chr(160)
  355. n353=  %Bc!Word = $replace(%Bc!Word,$chr(32),$chr(160))
  356. n354=  :Letter
  357. n355=  If $mid(%Bc!Letter,1,%Bc!Word) = $null { goto Word }
  358. n356=  Set %Bc!Letr $+ %Bc!Letter $mid(%Bc!Letter,1,%Bc!Word) | Inc %Bc!Letter | Goto Letter
  359. n357=  :Word | %Bc!Line = 1 | %Bc!Ltn = 1 | %Bc!Color! = %Bc!Color 
  360. n358=  :Nl
  361. n359=  Set %Bc!Write $+ %Bc!Line  %Bc!Write [ $+ [ %Bc!Line ] ]   $+ %Bc!Color $readini C:\tduck\docs\letters.ini %Bc!Letr [ $+ [ %Bc!Ltn ] ]  %Bc!Line |  Inc %Bc!Ltn | Inc %Bc!Color | Goto Color
  362. n360=  :Color | If %Bc!Color = 8 { Inc %Bc!Color 2 } | If %Bc!Color = 11 { Inc %Bc!Color } | If %Bc!Color >= 14  { %Bc!Color = 2 } | If %Bc!End { Goto End }
  363. n361=  If %Bc!Ltn > %Bc!Lenth { Inc %Bc!Line | %Bc!Ltn = 1 | %Bc!Color = %Bc!Color! | If (%Bc!Line > 6) { %Bc!End = Yes | Inc %Bc!Color | Goto Color } } | Goto Nl
  364. n362=  :End | %Bc!Active %Bc!Write1 |  %Bc!Active %Bc!Write2 |  %Bc!Active %Bc!Write3 |  %Bc!Active %Bc!Write4 |  %Bc!Active %Bc!Write5 | %Bc!Active %Bc!Write6
  365. n363=  Unset %Bc!End %Bc!Letr
  366. n364=}   
  367. n365=;
  368. n366=/drunk /msg $active $5 $2 $8 $7 $11 $15 $10 $6 $1 $3 $9 $12 $13 $14 $4 
  369. n367=;
  370. n368=/pl {
  371. n369=  if ($1 == $null) { echo 6 $active Error in /pl | /echo 6 $active Syntax: /pl <text> | halt }  
  372. n370=  set %vowels a e i o u | unset %i %wordlen %plword %leftside %rightside %wordlen2 |  set %line $replace(*1,$chr(32),)
  373. n371=  :pl
  374. n372=  set %count $count(%line,) | set %count1 %count + 1  
  375. n373=  if (%i == %count1 ) { /msg $active %plword | halt } |  inc %i
  376. n374=  set %word $token(%i,127,%line) | set %wordlen $len(%word) | set %wordlen2 %wordlen  - 1  
  377. n375=  if (%wordlen == 1) set %plword %plword %word
  378. n376=  elseif ($left(1,%word) !isin %vowels) { set %rightside $right(%wordlen2,%word) | set %leftword  %rightside $+ $left(1,%word) $+ ay | set %plword %plword %leftword }
  379. n377=  else set %plword %plword %word $+ ay | goto pl
  380. n378=}
  381. n379=;
  382. n380=/ece {
  383. n381=  %c = *1
  384. n382=  set %c $replace(%c,a,4a)
  385. n383=  set %c $replace(%c,b,3B)
  386. n384=  set %c $replace(%c,c,6C) 
  387. n385=  set %c $replace(%c,d,7D) 
  388. n386=  set %c $replace(%c,e,4e) 
  389. n387=  set %c $replace(%c,f,12F) 
  390. n388=  set %c $replace(%c,g,13G) 
  391. n389=  set %c $replace(%c,h,6H) 
  392. n390=  set %c $replace(%c,i,4i) 
  393. n391=  set %c $replace(%c,j,J) 
  394. n392=  set %c $replace(%c,k,3K) 
  395. n393=  set %c $replace(%c,l,L) 
  396. n394=  set %c $replace(%c,m,4M) 
  397. n395=  set %c $replace(%c,n,6N)
  398. n396=  set %c $replace(%c,o,4o) 
  399. n397=  set %c $replace(%c,p,12P) 
  400. n398=  set %c $replace(%c,q,Q) 
  401. n399=  set %c $replace(%c,r,13R) 
  402. n400=  set %c $replace(%c,s,7S) 
  403. n401=  set %c $replace(%c,t,T) 
  404. n402=  set %c $replace(%c,u,4u) 
  405. n403=  set %c $replace(%c,v,V) 
  406. n404=  set %c $replace(%c,w,12W) 
  407. n405=  set %c $replace(%c,x,7X) 
  408. n406=  set %c $replace(%c,y,Y) 
  409. n407=  set %c $replace(%c,z,6z) 
  410. n408=  set %c $replace(%c,?,12┐15?) 
  411. n409=  say %c
  412. n410=  unset %c
  413. n411=}
  414. n412=/bac {
  415. n413=  unset %final
  416. n414=  unset %endreverse
  417. n415=  set %sections $token(0,32,*1)
  418. n416=  :revstart
  419. n417=  if (%sections == 0) goto revend  
  420. n418=  set %reverseme $token(%sections,32,*1)
  421. n419=  set %length $len(%reverseme)
  422. n420=  set %backtext $mid(%length,1,%reverseme)  
  423. n421=  dec %length 1  
  424. n422=  :backstart
  425. n423=  if (%length == 0) goto backend
  426. n424=  set %tempback $mid(%length,1,%reverseme)
  427. n425=  set %backtext %backtext $+ %tempback 
  428. n426=  dec %length 1
  429. n427=  goto backstart
  430. n428=  :backend
  431. n429=  set %reversed_text %backtext
  432. n430=  set %temp %reversed_text
  433. n431=  set %final %final %temp
  434. n432=  dec %sections 1
  435. n433=  goto revstart  
  436. n434=  :revend
  437. n435=  set %endreverse %final
  438. n436=  say %final
  439. n437=}
  440. n438=/bg { %num = 1 | unset %msg  | %msg =  | %color = p
  441. n439=  :start
  442. n440=  if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
  443. n441=  if %color == y  { %num2 = 9 | %num3 = 1 | %color = p | goto add }
  444. n442=  :add
  445. n443=  if $mid(%num,1, *1) != $null {
  446. n444=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  447. n445=    inc %num 
  448. n446=  goto start  }
  449. n447=  say %msg
  450. n448=}
  451. n449=/cc { %num = 1 | unset %msg  | %msg =  | %color = p
  452. n450=  :start
  453. n451=  if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
  454. n452=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  455. n453=  :add
  456. n454=  if $mid(%num,1, *1) != $null {
  457. n455=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  458. n456=    inc %num 
  459. n457=  goto start  }
  460. n458=  say %msg
  461. n459=}
  462. n460=/ec {
  463. n461=  set %ftalk *1
  464. n462=  %ftalk = $replace(%ftalk,a,2σ)
  465. n463=  %ftalk = $replace(%ftalk,b,3■)
  466. n464=  %ftalk = $replace(%ftalk,c,4╟)
  467. n465=  %ftalk = $replace(%ftalk,d,5╨)
  468. n466=  %ftalk = $replace(%ftalk,e,6δ)
  469. n467=  %ftalk = $replace(%ftalk,f,7F)
  470. n468=  %ftalk = $replace(%ftalk,g,8G)
  471. n469=  %ftalk = $replace(%ftalk,h,9H)
  472. n470=  %ftalk = $replace(%ftalk,i,10ε)
  473. n471=  %ftalk = $replace(%ftalk,j,11J)
  474. n472=  %ftalk = $replace(%ftalk,k,12K)
  475. n473=  %ftalk = $replace(%ftalk,l,13ú)
  476. n474=  %ftalk = $replace(%ftalk,m,14M)
  477. n475=  %ftalk = $replace(%ftalk,n,15±)
  478. n476=  %ftalk = $replace(%ftalk,o,2°)
  479. n477=  %ftalk = $replace(%ftalk,p,3╢)
  480. n478=  %ftalk = $replace(%ftalk,q,4Q)
  481. n479=  %ftalk = $replace(%ftalk,r,5«)
  482. n480=  %ftalk = $replace(%ftalk,s,6º)
  483. n481=  %ftalk = $replace(%ftalk,t,7T)
  484. n482=  %ftalk = $replace(%ftalk,u,8╡)
  485. n483=  %ftalk = $replace(%ftalk,v,9V)
  486. n484=  %ftalk = $replace(%ftalk,w,10\\')
  487. n485=  %ftalk = $replace(%ftalk,x,11╫)
  488. n486=  %ftalk = $replace(%ftalk,y,12Ñ)
  489. n487=  %ftalk = $replace(%ftalk,z,12Z)
  490. n488=  %ftalk = $replace(%ftalk,!,4!)
  491. n489=  %ftalk = $replace(%ftalk,?,4?)
  492. n490=  %ftalk = $replace(%ftalk,*,5*)
  493. n491=  %ftalk = $replace(%ftalk,^,6^)
  494. n492=  %ftalk = $replace(%ftalk,$,7$)
  495. n493=  %ftalk = $replace(%ftalk,@,9@)
  496. n494=  %ftalk = $replace(%ftalk,&,10&)
  497. n495=  %ftalk = $replace(%ftalk,",11")
  498. n496=  %ftalk = $replace(%ftalk,<,12<)
  499. n497=  %ftalk = $replace(%ftalk,>,13>!)
  500. n498=  SAY %ftalk
  501. n499=}
  502. n500=/e {
  503. n501=  set %ftalk *1
  504. n502=  %ftalk = $replace(%ftalk,a,σ)
  505. n503=  %ftalk = $replace(%ftalk,b,▀)
  506. n504=  %ftalk = $replace(%ftalk,c,⌐)
  507. n505=  %ftalk = $replace(%ftalk,d,╨)
  508. n506=  %ftalk = $replace(%ftalk,e,δ)
  509. n507=  %ftalk = $replace(%ftalk,f,F)
  510. n508=  %ftalk = $replace(%ftalk,g,G)
  511. n509=  %ftalk = $replace(%ftalk,h,H)
  512. n510=  %ftalk = $replace(%ftalk,i,ε)
  513. n511=  %ftalk = $replace(%ftalk,j,J)
  514. n512=  %ftalk = $replace(%ftalk,k,K)
  515. n513=  %ftalk = $replace(%ftalk,l,ú)
  516. n514=  %ftalk = $replace(%ftalk,m,M)
  517. n515=  %ftalk = $replace(%ftalk,n,±)
  518. n516=  %ftalk = $replace(%ftalk,o,°)
  519. n517=  %ftalk = $replace(%ftalk,p,╢)
  520. n518=  %ftalk = $replace(%ftalk,q,Q)
  521. n519=  %ftalk = $replace(%ftalk,r,«)
  522. n520=  %ftalk = $replace(%ftalk,s,º)
  523. n521=  %ftalk = $replace(%ftalk,t,t)
  524. n522=  %ftalk = $replace(%ftalk,u,╡)
  525. n523=  %ftalk = $replace(%ftalk,v,V)
  526. n524=  %ftalk = $replace(%ftalk,w,\\')
  527. n525=  %ftalk = $replace(%ftalk,x,╫)
  528. n526=  %ftalk = $replace(%ftalk,y,Ñ)
  529. n527=  %ftalk = $replace(%ftalk,z,Z)
  530. n528=  say %ftalk
  531. n529=}
  532. n530=/r {
  533. n531=  set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  534. n532=  :loop
  535. n533=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  536. n534=  inc %p
  537. n535=  if ( $mid(%p,1,%i) != á) { inc %c }
  538. n536=  if ( %c > 6 ) { set %c 1 }
  539. n537=  if ( $mid(%p,1,%i) != $null ) { goto loop }
  540. n538=  say %o
  541. n539=  unset %o %i %p %c
  542. n540=}
  543. n541=/brick { %num = 1 | unset %msg  | %msg =  | %color = p
  544. n542=  :start
  545. n543=  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  546. n544=  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  547. n545=  :add
  548. n546=  if $mid(%num,1, *1) != $null {
  549. n547=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  550. n548=    inc %num 
  551. n549=  goto start  }
  552. n550=  say %msg
  553. n551=}
  554. n552=/bw { %num = 1 | unset %msg  | %msg =  | %color = p
  555. n553=  :start
  556. n554=  if %color == p { %num2 = 1 | %num3 = 16 | %color = y | goto add }
  557. n555=  if %color == y  { %num2 = 16 | %num3 = 1 | %color = p | goto add }
  558. n556=  :add
  559. n557=  if $mid(%num,1, *1) != $null {
  560. n558=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  561. n559=    inc %num 
  562. n560=  goto start  }
  563. n561=  say %msg
  564. n562=}
  565. n563=/wr { %num = 1 | unset %msg  | %msg =  | %color = p
  566. n564=  :start
  567. n565=  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
  568. n566=  if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
  569. n567=  :add
  570. n568=  if $mid(%num,1, *1) != $null {
  571. n569=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  572. n570=    inc %num 
  573. n571=  goto start  }
  574. n572=  say %msg
  575. n573=}
  576. n574=/rg { %num = 1 | unset %msg  | %msg =  | %color = p
  577. n575=  :start
  578. n576=  if %color == p { %num2 = 9 | %num3 = 4 | %color = y | goto add }
  579. n577=  if %color == y  { %num2 = 4 | %num3 = 9 | %color = p | goto add }
  580. n578=  :add
  581. n579=  if $mid(%num,1, *1) != $null {
  582. n580=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  583. n581=    inc %num 
  584. n582=  goto start  }
  585. n583=  say %msg
  586. n584=}
  587.